Greatest Childrens Stories Ever Told/Greatest_Stories.iso/demos/funtown/demo.dir/00053_Script_Scripts 10

Text File | 1994-11-08 | 5KB | 121 lines

--òòò Scripts 8
-- òòò development tools
--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
on do2
  set oldFrame=the frame
  put "  doQuestions ôLearnö  "
  doQuestions "Learn"
  put "  doQuestions ôFindö  "
  set the text of cast "Find Questions"=the text of cast "Learn Questions"
  put "  doQuestions ôMatchö  "
  set the text of cast "Match Questions"=the text of cast "Learn Questions"
  put "  doQuestions ôReadö  "
  doQuestions "Read"
  go frame oldFrame
  put "  returning to frame oldFrame."
  put "  done.  "
end
--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
on doQuestions whichMode
  global activateScript, allActivateScripts, ML
  set activateScriptX=""
  if voidP ( whichMode ) then
    set whichMode=item ( whichMode ) of "Explore,Learn,Find,Match,Read,TreasureHunt,SuperTreasureHunt,What'sMissing,What'sDifferent,PictureDictionary"
  end if
  repeat with x=0 to ( label ( "end "& whichMode& " Questions" ) - label ( whichMode& " Questions" ) )
    go frame ( label ( whichMode& " Questions" ) + x )
    if the type of sprite 2>0 then
      doActivateScript 2
      set activateScriptX=activateScriptX& return& activateScript
    else
      set noPatch=quote& "òNo Patch"& quote& ",0,0,0,0,"& quote& quote& ","& quote& quote& ","& quote& quote
      set activateScriptX=activateScriptX& return& noPatch
    end if
    if the type of sprite 3>0 then
      doActivateScript 3
      set activateScriptX=activateScriptX& ","& activateScript
      if whichMode="What'sDifferent" then set activateScriptX=activateScriptX& ","& the foreColor of sprite 3
    end if
    if whichMode="Learn" then
      if the type of sprite 4>0 then
        set activateScriptX=activateScriptX& ","& ( the left of sprite 4 - the left of sprite 3 )
      end if
    end if
    if the type of sprite 5>0 then
      set activateScriptX=activateScriptX& ","& quote& the name of cast ( the castNum of sprite 5 )& quote
    end if
  end repeat
  set the text of cast ( whichMode& " Questions" )=line 2 to 1000 of activateScriptX
end
--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
on doActivateScript spriteNum
  global activateScript
  if the type of sprite spriteNum=0 then
    set activateScript=""
    exit
  end if
  set theCast=the castNum of sprite spriteNum
  if the name of cast ( theCast )<>"" then
    set theCast2=quote& the name of cast ( theCast )& quote
  else
    set char1=(numToChar(65+(theCast/64)))
    set char2=((theCast mod 64/8)+1)
    set char3=(theCast mod 64 mod 8)
    if integer ( char3 mod 10 = 0 ) then set char3=char3+1
    set theCast2=char1& char2& char3
  end if
  set activateScript=theCast2 & "," & the type of sprite spriteNum & "," & the ink of sprite spriteNum & ","
  if the stretch of sprite spriteNum=0 then set activateScript=activateScript& the locH of sprite spriteNum-the left of sprite 1 & "," & the locV of sprite spriteNum-the top of sprite 1 & "," & quote & quote & "," & quote & quote & "," & quote & quote
  else set activateScript=activateScript& the left of sprite spriteNum & "," & the top of sprite spriteNum & "," & quote &"stretch to:" "e& "," & the right of sprite spriteNum & "," & the bottom of sprite spriteNum
  if the locH of sprite spriteNum>16000 or the locV of sprite spriteNum>16000 then
    put (the right of sprite spriteNum-the left of sprite spriteNum)/2+the left of sprite spriteNum into item 4 of activateScript
    put (the bottom of sprite spriteNum-the top of sprite spriteNum)/2+the top of sprite spriteNum into item 5 of activateScript
    put "Check that the cross-hairs for cast "& item 1 of activateScript &" are centered."
  end if
end
--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
-- òòò Mikey's development Tools on the fly
on doSetCastName firstCast, lastCast
  repeat with x = firstCast to lastCast
    set the name of cast x="!"&the date&&word 1 of the long time&&"Cast "& x
  end repeat
end
--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
on eraseUnusedCast firstCast, lastCast
  repeat with y = 0 to 100
    go frame ( label ( "Learn Questions" ) ) + y
    if the framelabel =  "End Learn Questions"  then
      put the name of Cast ( the CastNum of Sprite 2 ) into line (y+1 ) of field "TempHold"
      exit repeat
    end if
    put the name of Cast ( the CastNum of Sprite 2 ) into line (y+1 ) of field "TempHold"
  end repeat
  repeat with y = 0 to 100
    go frame ( label ( "Read Questions" ) ) + y
    if the framelabel =  "End Read Questions"  then
      put the name of Cast ( the CastNum of Sprite 2 ) into line (y+1 ) of field "TempHold2"
      exit repeat
    end if
    put the name of Cast ( the CastNum of Sprite 2 ) into line (y+1 ) of field "TempHold2"
  end repeat
  repeat with x = firstCast to LastCast
    if field "TempHold" contains the name of Cast x then nothing
    else if field "TempHold2" contains the name of Cast x then nothing
    else erase Cast x
  end repeat
end

--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
on setReadName firstCast, lastCast

  set y = 10
  repeat with x = firstCast to LastCast
    put the name of Cast x into theName
    set theName =  voidP(theName)
    set theName  = "ques."& y &"òReadò"
    set y = y + 1
    if theName contains "0" then delete char 7 of theName
    set the Name of Cast x = theName
  end repeat

end